10 REM ********************************
11 REM * 64COLORS                     *
12 REM * DEMONSTRATE THE C64'S COLORS *
13 REM * WRITTEN BY: CLIFF DUGAN      *
14 REM ********************************
15 :
50 A=780:X=781:Y=782:P=783
99 :
100 GOSUB500:PRINT"[147]"
110 GOSUB600
200 PRINT
210 PRINT"[144]  0:BLACK                               ";
220 PRINT"  1:WHITE                               ";
230 PRINT"  2:RED                                 ";
240 PRINT"[159]  3:CYAN                                ";
250 PRINT"[156]  4:PURPLE                              ";
260 PRINT"  5:GREEN                               ";
270 PRINT"  6:BLUE                                ";
280 PRINT"[158]  7:YELLOW                              ";
290 PRINT"[129]  8:ORANGE                              ";
300 PRINT"[149]  9:BROWN                               ";
310 PRINT"[150] 10:LIGHT RED                           ";
320 PRINT"[151] 11:DARK GREY                           ";
330 PRINT"[152] 12:MEDIUM GREY                         ";
340 PRINT"[153] 13:LIGHT GREEN                         ";
350 PRINT"[154] 14:LIGHT BLUE                          ";
360 PRINT"[155] 15:LIGHT GREY                          ";
400 POKE646,TC
410 POKEX,24:POKEY,5:POKEP,0:SYS65520
420 PRINT"[146]PRESS RUN/STOP RESTORE TO QUIT";
430 POKEX,19:POKEY,6:POKEP,0:SYS65520
440 POKEX,19:SYS59903
450 INPUT"[146]ENTER BACKGROUND COLOR #";BC
460 GOSUB500:GOSUB600:GOTO400
499 END
500 REM SET BKGRD,BORDER,TEXT COLORS
505 BC=(BCAND15)
510 POKE53280,BC:POKE53281,BC
520 TC=(NOTBC):TC=TCAND15
530 POKE646,TC
540 RETURN
600 REM PRINT TITLE BAR
610 POKEX,0:POKEY,0:POKEP,0:SYS65520
620 PRINT"               64COLORS                 ";
630 RETURN